home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 1.iso / util / rkinst24.zip / CUSTOM.PAS < prev    next >
Pascal/Delphi Source File  |  1994-02-10  |  778b  |  38 lines
  1. library custom;
  2.  
  3. uses wintypes;
  4.  
  5. Procedure CustomPaint (dc:hdc; x,y:integer); export;
  6.  begin
  7.  end;
  8.  
  9. Procedure CustomSetup (path:pchar); export;
  10.  begin
  11.  end;
  12.  
  13. Function GetRegistration:longint; export;
  14.  begin
  15.    GetRegistration:=0; { replace 0 with registrationcode }
  16.  end;
  17.  
  18. Function GetCustomFunct:pchar; export;
  19.  begin
  20.    GetCustomFunct:=NIL; { no custom functions }
  21.  end;
  22.  
  23. Function CustomFunct(no:integer; p1,p2:pchar):pchar; export;
  24.  begin
  25.    CustomFunct:=p1; { There are no custom functions, so the function }
  26.  end;               { simply returns one of the parameters           }
  27.  
  28. exports
  29.   CustomPaint     index 1,
  30.   CustomSetup     index 2,
  31.   GetRegistration index 3,
  32.   GetCustomFunct  index 4,
  33.   CustomFunct     index 5;
  34.  
  35. begin
  36. end.
  37.  
  38.